home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 58 / 058side4.d64 / master boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-29  |  4KB  |  135 lines
  1. 100 poke147,0:sys57812"master input.obj",8,1:sys62631
  2. 110 dimt$(10)
  3. 120 rem
  4. 130 poke 53281,0 : rem black background
  5. 140 mi=193*256 : rem mstr. inp. address
  6. 150 print"[147]"tab(14)"[158][201][206][208][213][212] [196][197][205][207] #1"
  7. 155 print"    [154][208]ress [210][197][212][213][210][206] after entering each"
  8. 157 print"   'field' (hours, minutes, seconds)."
  9. 160 print"[159]   [208]lease enter the time ->  00:00:00":cx=29:cy=10:gosub430
  10. 170 for c = 0 to 2
  11. 180 cx=29+3*c : cy=10 : gosub 430
  12. 190 a$ = "  " : rem define string
  13. 200 sysmi,128+16+1,2,asc("0"),1,3,a$
  14. 210 t$(c) = a$
  15. 220 next c
  16. 230 print:print"[156]         [212]he time is [158]";t$(0);":";t$(1);":";t$(2)
  17. 240 rem
  18. 250 print"       [208]ress [210][197][212][213][210][206] for next demo"
  19. 260 geta$:ifa$<>chr$(13)then260
  20. 270 goto540
  21. 280 rem
  22. 290 rem *****************************
  23. 300 rem ** format for master input **
  24. 310 rem *****************************
  25. 320 rem
  26. 330 rem in=intype,ln=length,df=default,
  27. 340 rem c1=color1,c2=color2,string name
  28. 350 rem
  29. 360 rem ('string name' can be any non-
  30. 370 rem dimensioned string variable,
  31. 380 rem for example: a$,m$,zz$,mn$,..)
  32. 390 rem
  33. 400 sys49152,in,ln,df,c1,c2,t$
  34. 410 rem
  35. 420 rem this positions the cursor
  36. 430 rem
  37. 440 rem cx=x-cursor (0-39) position
  38. 450 rem cy=y-cursor (0-23) position
  39. 460 rem
  40. 470 poke214,cy:print:poke211,cx:return
  41. 480 rem
  42. 490 rem
  43. 500 rem *******************************
  44. 510 rem ****** end of subroutine ******
  45. 520 rem *******************************
  46. 530 rem
  47. 540 print"[147]"tab(14)"[158][201][206][208][213][212] [196][197][205][207] #2"
  48. 550 cx=16:cy=9:gosub420:gt=2
  49. 560 print"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  50. 570 forcy=10to14:readt$(cy-10)
  51. 580 t$=t$(cy-10)+":":cx=16-len(t$):gosub420:print"[156]"t$"[154][221]";
  52. 590 print"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][154][221]":next
  53. 600 restore
  54. 610 printtab(16)"[154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  55. 620 forl=0to4:t$(l)="":next
  56. 630 p=0 : rem init loop counter
  57. 640 cy=10+p:cx=17:gosub420:a$="                   "
  58. 650 sysmi,255-(32+8),20,asc("[164]"),10,13,a$
  59. 660 t$(p)=a$:p=p+1:ifp<5then640
  60. 670 print"[147]"
  61. 680 cy=5:cx=0:gosub420
  62. 690 rem
  63. 700 print"[159] [217]our name is [154]"tab(18)t$(0)
  64. 710 print"[159] [217]ou live at [154]"tab(18)t$(1)
  65. 720 printtab(18)t$(2)
  66. 730 print"[159] [217]our phone # is[154]"tab(18)t$(3)
  67. 740 print"[159] [193]nd the other info you gave me is"
  68. 750 print"[154]    "t$(4)
  69. 760 print"      [208]ress [210][197][212][213][210][206] for next demo"
  70. 770 geta$:ifa$<>chr$(13)then770
  71. 780 rem
  72. 790 rem ===============================
  73. 800 rem ===============================
  74. 810 rem ===============================
  75. 820 rem
  76. 830 data"[206]ame","[193]ddress","[195]ity,[211]tate,[218]ip"," [208]hone number ","[207]ther"
  77. 840 rem
  78. 850 rem
  79. 860 print"[147]"chr$(142)tab(14)"[158]input demo #3":d$="a":p=0
  80. 870 cx=9:cy=8:gosub420:print"[159]enter "d$" number:"
  81. 880 cx=9:cy=10:gosub420:print"[154][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  82. 890 printtab(9)"[161][156]                    [154][146][161]"
  83. 900 printtab(9)"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  84. 910 cx=10:cy=11:gosub420
  85. 920 a$="0"
  86. 930 sysmi,128+32+8+1,20,asc(" "),1,4,a$
  87. 940 t(p)=val(a$):p=p+1:ifp<2thend$="another":goto870
  88. 950 print:print"[159]     the product of the numbers is:"
  89. 960 an$=str$(t(0)*t(1)):print"[154]"tab(20-(len(an$)/2))an$
  90. 970 print"       press return for next demo"
  91. 980 geta$:ifa$<>chr$(13)then980
  92. 990 rem
  93. 1000 rem
  94. 1010 print"[147]"tab(14)"[158][201][206][208][213][212] [196][197][205][207] #4"
  95. 1020 print"[159]     [197]nter an amount of money:":a$="   0.00"
  96. 1030 print"[156]           -=>          <=-[157][157][157][157][157][157][157][157][157][157][157]";
  97. 1040 rem cy=7 : cx=15 : gosub 470
  98. 1050 sysmi,128+94+8+1,7,asc("$"),7,5,a$
  99. 1060 print
  100. 1070 print"[154]         [217]ou entered $ "a$
  101. 1080 print""tab(13)"[208]ress [210][197][212][213][210][206]"
  102. 1090 geta$:ifa$<>chr$(13)then1090
  103. 1100 rem
  104. 1110 rem
  105. 1120 print"[147]";chr$(9);chr$(142);chr$(8)
  106. 1130 a$="       [194]                        [194]"
  107. 1140 print"       [152][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  108. 1150 printa$
  109. 1160 print"       [194] [154]please choose:[152]         [194]"
  110. 1170 print a$
  111. 1180 print"       [194]  1.[154] run the demo again[152] [194]"
  112. 1190 printa$
  113. 1200 print"       [194]  2.[154] return to loadstar[152] [194]"
  114. 1210 printa$
  115. 1220 print"       [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][154]"
  116. 1230 geta$:ifa$<>"1"anda$<>"2"then1230
  117. 1240 if a$="1" then 120
  118. 1250 rem
  119. 1260 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  120. 1270 if er<>63 then print"[147]":end
  121. 1280 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
  122. 1290 poke198,0:poke1144,32
  123. 1300 print"[158]load"q$a$q$",8"
  124. 1310 print"run ":poke631,13:poke632,13:poke198,2:end
  125. 1320 poke214,15:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  126. 1330 fori=1to3:print"                                      ":next:poke53272,21
  127. 1340 print"        published on loadstar #58     "
  128. 1350 print"      subscriptions 1-800-831-2694    "
  129. 1360 print"     changing[160]this notice is illegal  "
  130. 1370 print"                                      "
  131. 1380 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  132. 1390 au$="master input":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
  133. 1400 au$="by james ianni  (c) 1988":poke214,18:print
  134. 1410 printspc(20-len(au$)/2)"[152]"au$"":return
  135.